home *** CD-ROM | disk | FTP | other *** search
/ Big Cock 7 / Big Cock 7 - Disc 1.iso / pc / m / m2.dxr / 00063.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  455 b   |  23 lines
  1. on chkbtn
  2.   global btncast
  3.   repeat with n = 2 to 6
  4.     puppetSprite(n, 0)
  5.   end repeat
  6.   puppetSprite(clickOn(), 1)
  7.   set btncast to the castNum of sprite clickOn()
  8.   if btncast = 30 then
  9.     set btncast to 29
  10.   end if
  11.   if btncast = 28 then
  12.     set btncast to 27
  13.   end if
  14.   if btncast = 26 then
  15.     set btncast to 25
  16.   end if
  17.   if btncast = 24 then
  18.     set btncast to 23
  19.   end if
  20.   set the castNum of sprite clickOn() to btncast + 1
  21.   updateStage()
  22. end
  23.